home *** CD-ROM | disk | FTP | other *** search
/ IRIX Development Foundation 1.1 for IRIX 6.4 / SGI IRIX 6.4 Development Foundation 1.1.iso / dist / dist6.4 / patchSG0001892.idb / usr / include / gl / fdevice.h.z / fdevice.h
Text File  |  1997-09-05  |  26KB  |  910 lines

  1. C *************************************************************************
  2. C                                       *
  3. C           Copyright (C) 1984, Silicon Graphics, Inc.          *
  4. C                                       *
  5. C   These coded instructions, statements, and computer programs  contain  *
  6. C   unpublished  proprietary  information of Silicon Graphics, Inc., and  *
  7. C   are protected by Federal copyright law.  They  may  not be disclosed  *
  8. C   to  third  parties  or copied or duplicated in any form, in whole or  *
  9. C   in part, without the prior written consent of Silicon Graphics, Inc.  *
  10. C                                       *
  11. C ************************************************************************
  12.  
  13. C  Device name space partitioning
  14. C   hex 0000 -> hex 0fff    devices defined by SGI
  15. C     hex 0001 -> hex 00ff        buttons
  16. C     hex 0100 -> hex 01ff        valuators
  17. C     hex 0200 -> hex 02ff        pseudo devices
  18. C     hex 0300 -> hex 0eff        reserved
  19. C     hex 0f00 -> hex 0fff        additional buttons
  20. C   hex 1000 -> hex 7fff    devices defined by users
  21. C     hex 1000 -> hex 2fff        buttons
  22. C     hex 3000 -> hex 3fff        valuators
  23. C     hex 4000 -> hex 7fff        pseudo devices
  24. C   hex 8000 -> hex ffff    can not be used
  25.  
  26.  
  27.  
  28.  
  29.  
  30.        integer*4   NULLDE
  31.        parameter ( NULLDE = 0 )     
  32.        integer*4   BUTOFF
  33.        parameter ( BUTOFF = 1 )     
  34.        integer*4   VALOFF
  35.        parameter ( VALOFF = 256 )     
  36.        integer*4   PSEUDO
  37.        parameter ( PSEUDO = 512 )     
  38.        integer*4   BUT2OF
  39.        parameter ( BUT2OF = 3840 )     
  40.  
  41.        integer*4   TIMOFF
  42.        parameter ( TIMOFF = 515 )     
  43.        integer*4   XKBDOF
  44.        parameter ( XKBDOF = 143 )     
  45.  
  46.        integer*4   BUTCOU
  47.        parameter ( BUTCOU = 255 )     
  48.        integer*4   VALCOU
  49.        parameter ( VALCOU = 256 )     
  50.  
  51.        integer*4   TIMCOU
  52.        parameter ( TIMCOU = 4 )     
  53.        integer*4   XKBDCO
  54.        parameter ( XKBDCO = 28 )     
  55.  
  56.        integer*4   USERBU
  57.        parameter ( USERBU = 4096 )     
  58.        integer*4   USERVA
  59.        parameter ( USERVA = 12288 )     
  60.        integer*4   USERPS
  61.        parameter ( USERPS = 16384 )     
  62.  
  63. C  Button definitions for the base US keyboards
  64.        integer*4   BUT0
  65.        parameter ( BUT0 = 1 )     
  66.        integer*4   BUT1
  67.        parameter ( BUT1 = 2 )     
  68.        integer*4   BUT2
  69.        parameter ( BUT2 = 3 )     
  70.        integer*4   BUT3
  71.        parameter ( BUT3 = 4 )     
  72.        integer*4   BUT4
  73.        parameter ( BUT4 = 5 )     
  74.        integer*4   BUT5
  75.        parameter ( BUT5 = 6 )     
  76.        integer*4   BUT6
  77.        parameter ( BUT6 = 7 )     
  78.        integer*4   BUT7
  79.        parameter ( BUT7 = 8 )     
  80.        integer*4   BUT8
  81.        parameter ( BUT8 = 9 )     
  82.        integer*4   BUT9
  83.        parameter ( BUT9 = 10 )     
  84.        integer*4   BUT10
  85.        parameter ( BUT10 = 11 )     
  86.        integer*4   BUT11
  87.        parameter ( BUT11 = 12 )     
  88.        integer*4   BUT12
  89.        parameter ( BUT12 = 13 )     
  90.        integer*4   BUT13
  91.        parameter ( BUT13 = 14 )     
  92.        integer*4   BUT14
  93.        parameter ( BUT14 = 15 )     
  94.        integer*4   BUT15
  95.        parameter ( BUT15 = 16 )     
  96.        integer*4   BUT16
  97.        parameter ( BUT16 = 17 )     
  98.        integer*4   BUT17
  99.        parameter ( BUT17 = 18 )     
  100.        integer*4   BUT18
  101.        parameter ( BUT18 = 19 )     
  102.        integer*4   BUT19
  103.        parameter ( BUT19 = 20 )     
  104.        integer*4   BUT20
  105.        parameter ( BUT20 = 21 )     
  106.        integer*4   BUT21
  107.        parameter ( BUT21 = 22 )     
  108.        integer*4   BUT22
  109.        parameter ( BUT22 = 23 )     
  110.        integer*4   BUT23
  111.        parameter ( BUT23 = 24 )     
  112.        integer*4   BUT24
  113.        parameter ( BUT24 = 25 )     
  114.        integer*4   BUT25
  115.        parameter ( BUT25 = 26 )     
  116.        integer*4   BUT26
  117.        parameter ( BUT26 = 27 )     
  118.        integer*4   BUT27
  119.        parameter ( BUT27 = 28 )     
  120.        integer*4   BUT28
  121.        parameter ( BUT28 = 29 )     
  122.        integer*4   BUT29
  123.        parameter ( BUT29 = 30 )     
  124.        integer*4   BUT30
  125.        parameter ( BUT30 = 31 )     
  126.        integer*4   BUT31
  127.        parameter ( BUT31 = 32 )     
  128.        integer*4   BUT32
  129.        parameter ( BUT32 = 33 )     
  130.        integer*4   BUT33
  131.        parameter ( BUT33 = 34 )     
  132.        integer*4   BUT34
  133.        parameter ( BUT34 = 35 )     
  134.        integer*4   BUT35
  135.        parameter ( BUT35 = 36 )     
  136.        integer*4   BUT36
  137.        parameter ( BUT36 = 37 )     
  138.        integer*4   BUT37
  139.        parameter ( BUT37 = 38 )     
  140.        integer*4   BUT38
  141.        parameter ( BUT38 = 39 )     
  142.        integer*4   BUT39
  143.        parameter ( BUT39 = 40 )     
  144.        integer*4   BUT40
  145.        parameter ( BUT40 = 41 )     
  146.        integer*4   BUT41
  147.        parameter ( BUT41 = 42 )     
  148.        integer*4   BUT42
  149.        parameter ( BUT42 = 43 )     
  150.        integer*4   BUT43
  151.        parameter ( BUT43 = 44 )     
  152.        integer*4   BUT44
  153.        parameter ( BUT44 = 45 )     
  154.        integer*4   BUT45
  155.        parameter ( BUT45 = 46 )     
  156.        integer*4   BUT46
  157.        parameter ( BUT46 = 47 )     
  158.        integer*4   BUT47
  159.        parameter ( BUT47 = 48 )     
  160.        integer*4   BUT48
  161.        parameter ( BUT48 = 49 )     
  162.        integer*4   BUT49
  163.        parameter ( BUT49 = 50 )     
  164.        integer*4   BUT50
  165.        parameter ( BUT50 = 51 )     
  166.        integer*4   BUT51
  167.        parameter ( BUT51 = 52 )     
  168.        integer*4   BUT52
  169.        parameter ( BUT52 = 53 )     
  170.        integer*4   BUT53
  171.        parameter ( BUT53 = 54 )     
  172.        integer*4   BUT54
  173.        parameter ( BUT54 = 55 )     
  174.        integer*4   BUT55
  175.        parameter ( BUT55 = 56 )     
  176.        integer*4   BUT56
  177.        parameter ( BUT56 = 57 )     
  178.        integer*4   BUT57
  179.        parameter ( BUT57 = 58 )     
  180.        integer*4   BUT58
  181.        parameter ( BUT58 = 59 )     
  182.        integer*4   BUT59
  183.        parameter ( BUT59 = 60 )     
  184.        integer*4   BUT60
  185.        parameter ( BUT60 = 61 )     
  186.        integer*4   BUT61
  187.        parameter ( BUT61 = 62 )     
  188.        integer*4   BUT62
  189.        parameter ( BUT62 = 63 )     
  190.        integer*4   BUT63
  191.        parameter ( BUT63 = 64 )     
  192.        integer*4   BUT64
  193.        parameter ( BUT64 = 65 )     
  194.        integer*4   BUT65
  195.        parameter ( BUT65 = 66 )     
  196.        integer*4   BUT66
  197.        parameter ( BUT66 = 67 )     
  198.        integer*4   BUT67
  199.        parameter ( BUT67 = 68 )     
  200.        integer*4   BUT68
  201.        parameter ( BUT68 = 69 )     
  202.        integer*4   BUT69
  203.        parameter ( BUT69 = 70 )     
  204.        integer*4   BUT70
  205.        parameter ( BUT70 = 71 )     
  206.        integer*4   BUT71
  207.        parameter ( BUT71 = 72 )     
  208.        integer*4   BUT72
  209.        parameter ( BUT72 = 73 )     
  210.        integer*4   BUT73
  211.        parameter ( BUT73 = 74 )     
  212.        integer*4   BUT74
  213.        parameter ( BUT74 = 75 )     
  214.        integer*4   BUT75
  215.        parameter ( BUT75 = 76 )     
  216.        integer*4   BUT76
  217.        parameter ( BUT76 = 77 )     
  218.        integer*4   BUT77
  219.        parameter ( BUT77 = 78 )     
  220.        integer*4   BUT78
  221.        parameter ( BUT78 = 79 )     
  222.        integer*4   BUT79
  223.        parameter ( BUT79 = 80 )     
  224.        integer*4   BUT80
  225.        parameter ( BUT80 = 81 )     
  226.        integer*4   BUT81
  227.        parameter ( BUT81 = 82 )     
  228.        integer*4   BUT82
  229.        parameter ( BUT82 = 83 )     
  230.        integer*4   MAXKBD
  231.        parameter ( MAXKBD = 83 )     
  232.  
  233. C  Mouse buttons, etc. 
  234.        integer*4   BUT100
  235.        parameter ( BUT100 = 101 )     
  236.        integer*4   BUT101
  237.        parameter ( BUT101 = 102 )     
  238.        integer*4   BUT102
  239.        parameter ( BUT102 = 103 )     
  240.        integer*4   BUT103
  241.        parameter ( BUT103 = 104 )     
  242.        integer*4   BUT104
  243.        parameter ( BUT104 = 105 )     
  244.        integer*4   BUT105
  245.        parameter ( BUT105 = 106 )     
  246.        integer*4   BUT106
  247.        parameter ( BUT106 = 107 )     
  248.        integer*4   BUT107
  249.        parameter ( BUT107 = 108 )     
  250.        integer*4   BUT108
  251.        parameter ( BUT108 = 109 )     
  252.        integer*4   BUT109
  253.        parameter ( BUT109 = 110 )     
  254.  
  255. C  Button box definitions 
  256.        integer*4   BUT110
  257.        parameter ( BUT110 = 111 )     
  258.        integer*4   BUT111
  259.        parameter ( BUT111 = 112 )     
  260.        integer*4   BUT112
  261.        parameter ( BUT112 = 113 )     
  262.        integer*4   BUT113
  263.        parameter ( BUT113 = 114 )     
  264.        integer*4   BUT114
  265.        parameter ( BUT114 = 115 )     
  266.        integer*4   BUT115
  267.        parameter ( BUT115 = 116 )     
  268.        integer*4   BUT116
  269.        parameter ( BUT116 = 117 )     
  270.        integer*4   BUT117
  271.        parameter ( BUT117 = 118 )     
  272.        integer*4   BUT118
  273.        parameter ( BUT118 = 119 )     
  274.        integer*4   BUT119
  275.        parameter ( BUT119 = 120 )     
  276.        integer*4   BUT120
  277.        parameter ( BUT120 = 121 )     
  278.        integer*4   BUT121
  279.        parameter ( BUT121 = 122 )     
  280.        integer*4   BUT122
  281.        parameter ( BUT122 = 123 )     
  282.        integer*4   BUT123
  283.        parameter ( BUT123 = 124 )     
  284.        integer*4   BUT124
  285.        parameter ( BUT124 = 125 )     
  286.        integer*4   BUT125
  287.        parameter ( BUT125 = 126 )     
  288.        integer*4   BUT126
  289.        parameter ( BUT126 = 127 )     
  290.        integer*4   BUT127
  291.        parameter ( BUT127 = 128 )     
  292.        integer*4   BUT128
  293.        parameter ( BUT128 = 129 )     
  294.        integer*4   BUT129
  295.        parameter ( BUT129 = 130 )     
  296.        integer*4   BUT130
  297.        parameter ( BUT130 = 131 )     
  298.        integer*4   BUT131
  299.        parameter ( BUT131 = 132 )     
  300.        integer*4   BUT132
  301.        parameter ( BUT132 = 133 )     
  302.        integer*4   BUT133
  303.        parameter ( BUT133 = 134 )     
  304.        integer*4   BUT134
  305.        parameter ( BUT134 = 135 )     
  306.        integer*4   BUT135
  307.        parameter ( BUT135 = 136 )     
  308.        integer*4   BUT136
  309.        parameter ( BUT136 = 137 )     
  310.        integer*4   BUT137
  311.        parameter ( BUT137 = 138 )     
  312.        integer*4   BUT138
  313.        parameter ( BUT138 = 139 )     
  314.        integer*4   BUT139
  315.        parameter ( BUT139 = 140 )     
  316.        integer*4   BUT140
  317.        parameter ( BUT140 = 141 )     
  318.        integer*4   BUT141
  319.        parameter ( BUT141 = 142 )     
  320.  
  321. C  Button definitions for the extended keyboard.  Although current keyboards
  322. C  are 101 or 102 keys, there are 112 positions and so that many values are
  323. C  reserved.
  324.        integer*4   BUT142
  325.        parameter ( BUT142 = 143 )     
  326.        integer*4   BUT143
  327.        parameter ( BUT143 = 144 )     
  328.        integer*4   BUT144
  329.        parameter ( BUT144 = 145 )     
  330.        integer*4   BUT145
  331.        parameter ( BUT145 = 146 )     
  332.        integer*4   BUT146
  333.        parameter ( BUT146 = 147 )     
  334.        integer*4   BUT147
  335.        parameter ( BUT147 = 148 )     
  336.        integer*4   BUT148
  337.        parameter ( BUT148 = 149 )     
  338.        integer*4   BUT149
  339.        parameter ( BUT149 = 150 )     
  340.        integer*4   BUT150
  341.        parameter ( BUT150 = 151 )     
  342.        integer*4   BUT151
  343.        parameter ( BUT151 = 152 )     
  344.        integer*4   BUT152
  345.        parameter ( BUT152 = 153 )     
  346.        integer*4   BUT153
  347.        parameter ( BUT153 = 154 )     
  348.        integer*4   BUT154
  349.        parameter ( BUT154 = 155 )     
  350.        integer*4   BUT155
  351.        parameter ( BUT155 = 156 )     
  352.        integer*4   BUT156
  353.        parameter ( BUT156 = 157 )     
  354.        integer*4   BUT157
  355.        parameter ( BUT157 = 158 )     
  356.        integer*4   BUT158
  357.        parameter ( BUT158 = 159 )     
  358.        integer*4   BUT159
  359.        parameter ( BUT159 = 160 )     
  360.        integer*4   BUT160
  361.        parameter ( BUT160 = 161 )     
  362.        integer*4   BUT161
  363.        parameter ( BUT161 = 162 )     
  364.        integer*4   BUT162
  365.        parameter ( BUT162 = 163 )     
  366.        integer*4   BUT163
  367.        parameter ( BUT163 = 164 )     
  368.        integer*4   BUT164
  369.        parameter ( BUT164 = 165 )     
  370.        integer*4   BUT165
  371.        parameter ( BUT165 = 166 )     
  372.        integer*4   BUT166
  373.        parameter ( BUT166 = 167 )     
  374.        integer*4   BUT167
  375.        parameter ( BUT167 = 168 )     
  376.        integer*4   BUT168
  377.        parameter ( BUT168 = 169 )     
  378.  
  379. C  BUT169 (=170) through BUT179 (=180) are reserved for the remainder of
  380. C  the 112 key positions.
  381.  
  382. C  BUT181 through BUT189 are used for the nine buttons of the Space Ball.
  383. C  Codes through 255 inclusive are reserved for future use by SGI.
  384.        integer*4   BUT181
  385.        parameter ( BUT181 = 182 )     
  386.        integer*4   BUT182
  387.        parameter ( BUT182 = 183 )     
  388.        integer*4   BUT183
  389.        parameter ( BUT183 = 184 )     
  390.        integer*4   BUT184
  391.        parameter ( BUT184 = 185 )     
  392.        integer*4   BUT185
  393.        parameter ( BUT185 = 186 )     
  394.        integer*4   BUT186
  395.        parameter ( BUT186 = 187 )     
  396.        integer*4   BUT187
  397.        parameter ( BUT187 = 188 )     
  398.        integer*4   BUT188
  399.        parameter ( BUT188 = 189 )     
  400.        integer*4   BUT189
  401.        parameter ( BUT189 = 190 )     
  402.  
  403. C  other buttons 
  404.  
  405.        integer*4   MOUSE1
  406.        parameter ( MOUSE1 = 101 )     
  407.        integer*4   MOUSE2
  408.        parameter ( MOUSE2 = 102 )     
  409.        integer*4   MOUSE3
  410.        parameter ( MOUSE3 = 103 )     
  411.        integer*4   LEFTMO
  412.        parameter ( LEFTMO = 103 )     
  413.        integer*4   MIDDLE
  414.        parameter ( MIDDLE = 102 )     
  415.        integer*4   RIGHTM
  416.        parameter ( RIGHTM = 101 )     
  417.        integer*4   LPENBU
  418.        parameter ( LPENBU = 104 )     
  419.        integer*4   BPAD0
  420.        parameter ( BPAD0 = 105 )     
  421.        integer*4   BPAD1
  422.        parameter ( BPAD1 = 106 )     
  423.        integer*4   BPAD2
  424.        parameter ( BPAD2 = 107 )     
  425.        integer*4   BPAD3
  426.        parameter ( BPAD3 = 108 )     
  427.        integer*4   LPENVA
  428.        parameter ( LPENVA = 109 )     
  429.  
  430. C  button box 
  431.  
  432.        integer*4   SWBASE
  433.        parameter ( SWBASE = 111 )     
  434.        integer*4   SW0
  435.        parameter ( SW0     = 111 )     
  436.        integer*4   SW1
  437.        parameter ( SW1     = 112 )     
  438.        integer*4   SW2
  439.        parameter ( SW2     = 113 )     
  440.        integer*4   SW3
  441.        parameter ( SW3     = 114 )     
  442.        integer*4   SW4
  443.        parameter ( SW4     = 115 )     
  444.        integer*4   SW5
  445.        parameter ( SW5     = 116 )     
  446.        integer*4   SW6
  447.        parameter ( SW6     = 117 )     
  448.        integer*4   SW7
  449.        parameter ( SW7     = 118 )     
  450.        integer*4   SW8
  451.        parameter ( SW8     = 119 )     
  452.        integer*4   SW9
  453.        parameter ( SW9     = 120 )     
  454.        integer*4   SW10
  455.        parameter ( SW10 = 121 )     
  456.        integer*4   SW11
  457.        parameter ( SW11 = 122 )     
  458.        integer*4   SW12
  459.        parameter ( SW12 = 123 )     
  460.        integer*4   SW13
  461.        parameter ( SW13 = 124 )     
  462.        integer*4   SW14
  463.        parameter ( SW14 = 125 )     
  464.        integer*4   SW15
  465.        parameter ( SW15 = 126 )     
  466.        integer*4   SW16
  467.        parameter ( SW16 = 127 )     
  468.        integer*4   SW17
  469.        parameter ( SW17 = 128 )     
  470.        integer*4   SW18
  471.        parameter ( SW18 = 129 )     
  472.        integer*4   SW19
  473.        parameter ( SW19 = 130 )     
  474.        integer*4   SW20
  475.        parameter ( SW20 = 131 )     
  476.        integer*4   SW21
  477.        parameter ( SW21 = 132 )     
  478.        integer*4   SW22
  479.        parameter ( SW22 = 133 )     
  480.        integer*4   SW23
  481.        parameter ( SW23 = 134 )     
  482.        integer*4   SW24
  483.        parameter ( SW24 = 135 )     
  484.        integer*4   SW25
  485.        parameter ( SW25 = 136 )     
  486.        integer*4   SW26
  487.        parameter ( SW26 = 137 )     
  488.        integer*4   SW27
  489.        parameter ( SW27 = 138 )     
  490.        integer*4   SW28
  491.        parameter ( SW28 = 139 )     
  492.        integer*4   SW29
  493.        parameter ( SW29 = 140 )     
  494.        integer*4   SW30
  495.        parameter ( SW30 = 141 )     
  496.        integer*4   SW31
  497.        parameter ( SW31 = 142 )     
  498.  
  499. C  space ball buttons 
  500.  
  501.        integer*4   SBBASE
  502.        parameter ( SBBASE = 182 )     
  503.        integer*4   SBPICK
  504.        parameter ( SBPICK = 182 )     
  505.        integer*4   SBBUT1
  506.        parameter ( SBBUT1 = 183 )     
  507.        integer*4   SBBUT2
  508.        parameter ( SBBUT2 = 184 )     
  509.        integer*4   SBBUT3
  510.        parameter ( SBBUT3 = 185 )     
  511.        integer*4   SBBUT4
  512.        parameter ( SBBUT4 = 186 )     
  513.        integer*4   SBBUT5
  514.        parameter ( SBBUT5 = 187 )     
  515.        integer*4   SBBUT6
  516.        parameter ( SBBUT6 = 188 )     
  517.        integer*4   SBBUT7
  518.        parameter ( SBBUT7 = 189 )     
  519.        integer*4   SBBUT8
  520.        parameter ( SBBUT8 = 190 )     
  521.  
  522. C  standard keyboard 
  523.  
  524.        integer*4   AKEY
  525.        parameter ( AKEY = 11 )     
  526.        integer*4   BKEY
  527.        parameter ( BKEY = 36 )     
  528.        integer*4   CKEY
  529.        parameter ( CKEY = 28 )     
  530.        integer*4   DKEY
  531.        parameter ( DKEY = 18 )     
  532.        integer*4   EKEY
  533.        parameter ( EKEY = 17 )     
  534.        integer*4   FKEY
  535.        parameter ( FKEY = 19 )     
  536.        integer*4   GKEY
  537.        parameter ( GKEY = 26 )     
  538.        integer*4   HKEY
  539.        parameter ( HKEY = 27 )     
  540.        integer*4   IKEY
  541.        parameter ( IKEY = 40 )     
  542.        integer*4   JKEY
  543.        parameter ( JKEY = 34 )     
  544.        integer*4   KKEY
  545.        parameter ( KKEY = 35 )     
  546.        integer*4   LKEY
  547.        parameter ( LKEY = 42 )     
  548.        integer*4   MKEY
  549.        parameter ( MKEY = 44 )     
  550.        integer*4   NKEY
  551.        parameter ( NKEY = 37 )     
  552.        integer*4   OKEY
  553.        parameter ( OKEY = 41 )     
  554.        integer*4   PKEY
  555.        parameter ( PKEY = 48 )     
  556.        integer*4   QKEY
  557.        parameter ( QKEY = 10 )     
  558.        integer*4   RKEY
  559.        parameter ( RKEY = 24 )     
  560.        integer*4   SKEY
  561.        parameter ( SKEY = 12 )     
  562.        integer*4   TKEY
  563.        parameter ( TKEY = 25 )     
  564.        integer*4   UKEY
  565.        parameter ( UKEY = 33 )     
  566.        integer*4   VKEY
  567.        parameter ( VKEY = 29 )     
  568.        integer*4   WKEY
  569.        parameter ( WKEY = 16 )     
  570.        integer*4   XKEY
  571.        parameter ( XKEY = 21 )     
  572.        integer*4   YKEY
  573.        parameter ( YKEY = 32 )     
  574.        integer*4   ZKEY
  575.        parameter ( ZKEY = 20 )     
  576.        integer*4   ZEROKE
  577.        parameter ( ZEROKE = 46 )     
  578.        integer*4   ONEKEY
  579.        parameter ( ONEKEY = 8 )     
  580.        integer*4   TWOKEY
  581.        parameter ( TWOKEY = 14 )     
  582.        integer*4   THREEK
  583.        parameter ( THREEK = 15 )     
  584.        integer*4   FOURKE
  585.        parameter ( FOURKE = 22 )     
  586.        integer*4   FIVEKE
  587.        parameter ( FIVEKE = 23 )     
  588.        integer*4   SIXKEY
  589.        parameter ( SIXKEY = 30 )     
  590.        integer*4   SEVENK
  591.        parameter ( SEVENK = 31 )     
  592.        integer*4   EIGHTK
  593.        parameter ( EIGHTK = 38 )     
  594.        integer*4   NINEKE
  595.        parameter ( NINEKE = 39 )     
  596.        integer*4   BREAKK
  597.        parameter ( BREAKK = 1 )     
  598.        integer*4   SETUPK
  599.        parameter ( SETUPK = 2 )     
  600.        integer*4   CTRLKE
  601.        parameter ( CTRLKE = 3 )     
  602.        integer*4   LEFTCT
  603.        parameter ( LEFTCT = CTRLKE )     
  604.        integer*4   CAPSLO
  605.        parameter ( CAPSLO = 4 )     
  606.        integer*4   RIGHTS
  607.        parameter ( RIGHTS = 5 )     
  608.        integer*4   LEFTSH
  609.        parameter ( LEFTSH = 6 )     
  610.        integer*4   NOSCRL
  611.        parameter ( NOSCRL = 13 )     
  612.        integer*4   ESCKEY
  613.        parameter ( ESCKEY = 7 )     
  614.        integer*4   TABKEY
  615.        parameter ( TABKEY = 9 )     
  616.        integer*4   RETKEY
  617.        parameter ( RETKEY = 51 )     
  618.        integer*4   SPACEK
  619.        parameter ( SPACEK = 83 )     
  620.        integer*4   LINEFE
  621.        parameter ( LINEFE = 60 )     
  622.        integer*4   BACKSP
  623.        parameter ( BACKSP = 61 )     
  624.        integer*4   DELKEY
  625.        parameter ( DELKEY = 62 )     
  626.        integer*4   SEMICO
  627.        parameter ( SEMICO = 43 )     
  628.        integer*4   PERIOD
  629.        parameter ( PERIOD = 52 )     
  630.        integer*4   COMMAK
  631.        parameter ( COMMAK = 45 )     
  632.        integer*4   QUOTEK
  633.        parameter ( QUOTEK = 50 )     
  634.        integer*4   ACCENT
  635.        parameter ( ACCENT = 55 )     
  636.        integer*4   MINUSK
  637.        parameter ( MINUSK = 47 )     
  638.        integer*4   VIRGUL
  639.        parameter ( VIRGUL = 53 )     
  640.        integer*4   BACKSL
  641.        parameter ( BACKSL = 57 )     
  642.        integer*4   EQUALK
  643.        parameter ( EQUALK = 54 )     
  644.        integer*4   LEFTBR
  645.        parameter ( LEFTBR = 49 )     
  646.        integer*4   RIGHTB
  647.        parameter ( RIGHTB = 56 )     
  648.        integer*4   LEFTAR
  649.        parameter ( LEFTAR = 73 )     
  650.        integer*4   DOWNAR
  651.        parameter ( DOWNAR = 74 )     
  652.        integer*4   RIGHTA
  653.        parameter ( RIGHTA = 80 )     
  654.        integer*4   UPARRO
  655.        parameter ( UPARRO = 81 )     
  656.        integer*4   PAD0
  657.        parameter ( PAD0 = 59 )     
  658.        integer*4   PAD1
  659.        parameter ( PAD1 = 58 )     
  660.        integer*4   PAD2
  661.        parameter ( PAD2 = 64 )     
  662.        integer*4   PAD3
  663.        parameter ( PAD3 = 65 )     
  664.        integer*4   PAD4
  665.        parameter ( PAD4 = 63 )     
  666.        integer*4   PAD5
  667.        parameter ( PAD5 = 69 )     
  668.        integer*4   PAD6
  669.        parameter ( PAD6 = 70 )     
  670.        integer*4   PAD7
  671.        parameter ( PAD7 = 67 )     
  672.        integer*4   PAD8
  673.        parameter ( PAD8 = 68 )     
  674.        integer*4   PAD9
  675.        parameter ( PAD9 = 75 )     
  676.        integer*4   PADPF1
  677.        parameter ( PADPF1 = 72 )     
  678.        integer*4   PADPF2
  679.        parameter ( PADPF2 = 71 )     
  680.        integer*4   PADPF3
  681.        parameter ( PADPF3 = 79 )     
  682.        integer*4   PADPF4
  683.        parameter ( PADPF4 = 78 )     
  684.        integer*4   PADPER
  685.        parameter ( PADPER = 66 )     
  686.        integer*4   PADMIN
  687.        parameter ( PADMIN = 76 )     
  688.        integer*4   PADCOM
  689.        parameter ( PADCOM = 77 )     
  690.        integer*4   PADENT
  691.        parameter ( PADENT = 82 )     
  692.  
  693. C  the extended keyboard 
  694.  
  695.        integer*4   LEFTAL
  696.        parameter ( LEFTAL = 143 )     
  697.        integer*4   RGHTAL
  698.        parameter ( RGHTAL = 144 )     
  699.        integer*4   RIGHTC
  700.        parameter ( RIGHTC = 145 )     
  701.        integer*4   F1KEY
  702.        parameter ( F1KEY = 146 )     
  703.        integer*4   F2KEY
  704.        parameter ( F2KEY = 147 )     
  705.        integer*4   F3KEY
  706.        parameter ( F3KEY = 148 )     
  707.        integer*4   F4KEY
  708.        parameter ( F4KEY = 149 )     
  709.        integer*4   F5KEY
  710.        parameter ( F5KEY = 150 )     
  711.        integer*4   F6KEY
  712.        parameter ( F6KEY = 151 )     
  713.        integer*4   F7KEY
  714.        parameter ( F7KEY = 152 )     
  715.        integer*4   F8KEY
  716.        parameter ( F8KEY = 153 )     
  717.        integer*4   F9KEY
  718.        parameter ( F9KEY = 154 )     
  719.        integer*4   F10KEY
  720.        parameter ( F10KEY = 155 )     
  721.        integer*4   F11KEY
  722.        parameter ( F11KEY = 156 )     
  723.        integer*4   F12KEY
  724.        parameter ( F12KEY = 157 )     
  725.        integer*4   PRINTS
  726.        parameter ( PRINTS = 158 )     
  727.        integer*4   SCROLL
  728.        parameter ( SCROLL = 159 )     
  729.        integer*4   PAUSEK
  730.        parameter ( PAUSEK = 160 )     
  731.        integer*4   INSERT
  732.        parameter ( INSERT = 161 )     
  733.        integer*4   HOMEKE
  734.        parameter ( HOMEKE = 162 )     
  735.        integer*4   PAGEUP
  736.        parameter ( PAGEUP = 163 )     
  737.        integer*4   ENDKEY
  738.        parameter ( ENDKEY = 164 )     
  739.        integer*4   PAGEDO
  740.        parameter ( PAGEDO = 165 )     
  741.        integer*4   NUMLOC
  742.        parameter ( NUMLOC = 166 )     
  743.        integer*4   PADVIR
  744.        parameter ( PADVIR = 167 )     
  745.        integer*4   PADAST
  746.        parameter ( PADAST = 168 )     
  747.        integer*4   PADPLU
  748.        parameter ( PADPLU = 169 )     
  749.  
  750. C  
  751. C  By rights, we should define symbolic entries here for all of the new
  752. C  characters brought to us by ISO 8859-1.  In fact, since there is no
  753. C  current convention to avoid making new symbols that are unique, the
  754. C  danger of collison with existing user symbols is too high. 
  755.  
  756.  
  757. C  valuators 
  758.  
  759.        integer*4   SGIRES
  760.        parameter ( SGIRES = 256 )     
  761.        integer*4   DIAL0
  762.        parameter ( DIAL0 = 257 )     
  763.        integer*4   DIAL1
  764.        parameter ( DIAL1 = 258 )     
  765.        integer*4   DIAL2
  766.        parameter ( DIAL2 = 259 )     
  767.        integer*4   DIAL3
  768.        parameter ( DIAL3 = 260 )     
  769.        integer*4   DIAL4
  770.        parameter ( DIAL4 = 261 )     
  771.        integer*4   DIAL5
  772.        parameter ( DIAL5 = 262 )     
  773.        integer*4   DIAL6
  774.        parameter ( DIAL6 = 263 )     
  775.        integer*4   DIAL7
  776.        parameter ( DIAL7 = 264 )     
  777.        integer*4   DIAL8
  778.        parameter ( DIAL8 = 265 )     
  779.        integer*4   MOUSEX
  780.        parameter ( MOUSEX = 266 )     
  781.        integer*4   MOUSEY
  782.        parameter ( MOUSEY = 267 )     
  783.        integer*4   LPENX
  784.        parameter ( LPENX = 268 )     
  785.        integer*4   LPENY
  786.        parameter ( LPENY = 269 )     
  787.        integer*4   BPADX
  788.        parameter ( BPADX = 270 )     
  789.        integer*4   BPADY
  790.        parameter ( BPADY = 271 )     
  791.        integer*4   CURSRX
  792.        parameter ( CURSRX = 272 )     
  793.        integer*4   CURSRY
  794.        parameter ( CURSRY = 273 )     
  795.        integer*4   GHOSTX
  796.        parameter ( GHOSTX = 274 )     
  797.        integer*4   GHOSTY
  798.        parameter ( GHOSTY = 275 )     
  799.  
  800. C  Space Ball valuators 
  801.  
  802.        integer*4   SBTX
  803.        parameter ( SBTX = 276 )     
  804.        integer*4   SBTY
  805.        parameter ( SBTY = 277 )     
  806.        integer*4   SBTZ
  807.        parameter ( SBTZ = 278 )     
  808.        integer*4   SBRX
  809.        parameter ( SBRX = 279 )     
  810.        integer*4   SBRY
  811.        parameter ( SBRY = 280 )     
  812.        integer*4   SBRZ
  813.        parameter ( SBRZ = 281 )     
  814.        integer*4   SBPERI
  815.        parameter ( SBPERI = 282 )     
  816.  
  817. C  timers 
  818.  
  819.        integer*4   TIMER0
  820.        parameter ( TIMER0 = 515 )     
  821.        integer*4   TIMER1
  822.        parameter ( TIMER1 = 516 )     
  823.        integer*4   TIMER2
  824.        parameter ( TIMER2 = 517 )     
  825.        integer*4   TIMER3
  826.        parameter ( TIMER3 = 518 )     
  827.  
  828. C  misc devices 
  829.  
  830.        integer*4   KEYBD
  831.        parameter ( KEYBD = 513 )     
  832.        integer*4   RAWKBD
  833.        parameter ( RAWKBD = 514 )     
  834.        integer*4   VALMAR
  835.        parameter ( VALMAR = 523 )     
  836.        integer*4   REDRAW
  837.        parameter ( REDRAW = 528 )     
  838.        integer*4   INPTCH
  839.        parameter ( INPTCH = 534 )     
  840.        integer*4   QFULL
  841.        parameter ( QFULL = 535 )     
  842.        integer*4   QREADE
  843.        parameter ( QREADE = 538 )     
  844.        integer*4   WINFRE
  845.        parameter ( WINFRE = 539 )     
  846.        integer*4   WINTHA
  847.        parameter ( WINTHA = 540 )     
  848.        integer*4   REDRWI
  849.        parameter ( REDRWI = 541 )     
  850.        integer*4   WINQUI
  851.        parameter ( WINQUI = 542 )     
  852.        integer*4   DPTHCH
  853.        parameter ( DPTHCH = 543 )     
  854.        integer*4   WINSHU
  855.        parameter ( WINSHU = 546 )     
  856.        integer*4   DRAWOV
  857.        parameter ( DRAWOV = 547 )     
  858.        integer*4   VIDEO
  859.        parameter ( VIDEO = 548 )     
  860.  
  861.        integer*4   MENUBU
  862.        parameter ( MENUBU = RIGHTM )     
  863.  
  864.  
  865. C  
  866. C  obsolete symbols 
  867.  
  868.  
  869.        integer*4   WINCLS
  870.        parameter ( WINCLS = 537 )     
  871.        integer*4   KBDFNA
  872.        parameter ( KBDFNA = 544 )     
  873.        integer*4   KBDFST
  874.        parameter ( KBDFST = 545 )     
  875.        integer*4   MAXSGI
  876.        parameter ( MAXSGI = 20000 )     
  877.  
  878. C  these events only occur when using the mex window manager (3K Series) 
  879.        integer*4   GERROR
  880.        parameter ( GERROR = 524 )     
  881.        integer*4   WMSEND
  882.        parameter ( WMSEND = 529 )     
  883.        integer*4   WMREPL
  884.        parameter ( WMREPL = 530 )     
  885.        integer*4   WMGFCL
  886.        parameter ( WMGFCL = 531 )     
  887.        integer*4   WMTXCL
  888.        parameter ( WMTXCL = 532 )     
  889.        integer*4   MODECH
  890.        parameter ( MODECH = 533 )     
  891.        integer*4   PIECHN
  892.        parameter ( PIECHN = 536 )     
  893.  
  894.  
  895.